home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
comm
/
ftp4w24b.zip
/
vb
/
ftp_put.frm
< prev
next >
Wrap
Text File
|
1995-01-18
|
3KB
|
115 lines
VERSION 2.00
Begin Form Put_file
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "Put File"
ClientHeight = 2160
ClientLeft = 3300
ClientTop = 2055
ClientWidth = 3210
ControlBox = 0 'False
Height = 2565
Left = 3240
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2160
ScaleWidth = 3210
Top = 1710
Width = 3330
Begin CommandButton Cancelput
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 2040
TabIndex = 4
Top = 1560
Width = 975
End
Begin CommandButton PutFile
Caption = "Put"
Default = -1 'True
Height = 375
Left = 120
TabIndex = 3
Top = 1560
Width = 975
End
Begin TextBox LocalFile
Height = 285
Left = 1320
TabIndex = 1
Text = "LocalFile"
Top = 240
Width = 1695
End
Begin TextBox HostFile
Height = 285
Left = 1320
TabIndex = 2
Text = "HostFile"
Top = 840
Width = 1695
End
Begin Label Label2
BackColor = &H00C0C0C0&
Caption = "Local File :"
Height = 255
Left = 120
TabIndex = 5
Top = 240
Width = 1095
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "Host File :"
Height = 255
Left = 120
TabIndex = 0
Top = 840
Width = 1095
End
End
Sub Cancelput_Click ()
'
OKDialog = False
Unload Put_file
'
End Sub
Sub Form_Load ()
'
Put_file!HostFile.Text = ""
Put_file!LocalFile.Text = ""
'
End Sub
Sub PutFile_Click ()
'
Dim Hulp As String
'
Src_nam = Put_file!LocalFile.Text
Dest_nam = Put_file!HostFile.Text
'
If Len(Trim$(Src_nam)) <> 0 Then
If Dir$(Src_nam) <> "" Then
If Len(Trim$(Dest_nam)) = 0 Then
Hulp = Src_nam
While InStr(Hulp, "\") <> 0
Hulp = Right$(Hulp, Len(Hulp) - InStr(Hulp, "\"))
Wend
Dest_nam = Hulp
End If
OKDialog = True
Unload Put_file
Else
MsgBox "File does not exist " & Destnam, 64, "Warning"
End If
Else
MsgBox "You must at least enter a source name", 64, "Warning"
End If
'
End Sub